Developer CD Series 1996 May: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / oodles-of-utils.sea / oodles-of-utils / mixin-madness / simple-view-mixins / droppable-svm.lisp < prev next >
MacBinary | 1992-07-24 | 7.1 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Fri Jul 24 16:20:34 1992, modified Fri Jul 24 16:20:34 1992, creator Common Lisp 2, type ASCII, 6633 bytes "droppable-svm.lisp" , at 0x1a69 442 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 64 72 6f 70 70 61 | 62 6c 65 2d 73 76 6d 2e |..droppa|ble-svm.|
|00000010| 6c 69 73 70 00 00 00 00 | 00 00 00 00 00 00 00 00 |lisp....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 19 e9 00 | 00 01 ba a6 96 16 92 a6 |........|........|
|00000060| 96 16 92 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ea 06 00 00 |........|........|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 6f 6f 75 |(in-pack|age :oou|
|00000090| 29 0d 28 6f 6f 75 2d 70 | 72 6f 76 69 64 65 20 3a |).(oou-p|rovide :|
|000000a0| 64 72 6f 70 70 61 62 6c | 65 2d 73 76 6d 29 0d 3b |droppabl|e-svm).;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000f0| 3b 3b 3b 3b 3b 0d 3b 3b | 20 64 72 6f 70 70 61 62 |;;;;;.;;| droppab|
|00000100| 6c 65 2d 73 76 6d 2e 4c | 69 73 70 0d 3b 3b 0d 3b |le-svm.L|isp.;;.;|
|00000110| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 a9 20 31 39 |; Copyri|ght . 19|
|00000120| 39 32 20 4e 6f 72 74 68 | 77 65 73 74 65 72 6e 20 |92 North|western |
|00000130| 55 6e 69 76 65 72 73 69 | 74 79 20 49 6e 73 74 69 |Universi|ty Insti|
|00000140| 74 75 74 65 20 66 6f 72 | 20 74 68 65 20 4c 65 61 |tute for| the Lea|
|00000150| 72 6e 69 6e 67 20 53 63 | 69 65 6e 63 65 73 0d 3b |rning Sc|iences.;|
|00000160| 3b 20 41 6c 6c 20 52 69 | 67 68 74 73 20 52 65 73 |; All Ri|ghts Res|
|00000170| 65 72 76 65 64 0d 3b 3b | 0d 3b 3b 20 61 75 74 68 |erved.;;|.;; auth|
|00000180| 6f 72 3a 20 4d 69 63 68 | 61 65 6c 20 53 2e 20 45 |or: Mich|ael S. E|
|00000190| 6e 67 62 65 72 0d 3b 3b | 20 20 20 20 20 20 20 20 |ngber.;;|        |
|000001a0| 20 20 62 61 73 65 64 20 | 6f 6e 20 61 6e 20 69 64 |  based |on an id|
|000001b0| 65 61 20 6f 72 69 67 69 | 6e 61 6c 6c 79 20 69 6d |ea origi|nally im|
|000001c0| 70 6c 65 6d 65 6e 74 65 | 64 20 66 6f 72 20 4d 41 |plemente|d for MA|
|000001d0| 43 4c 20 31 2e 33 32 20 | 62 79 20 52 69 63 68 20 |CL 1.32 |by Rich |
|000001e0| 4c 79 6e 63 68 0d 3b 3b | 0d 3b 3b 20 6d 69 78 69 |Lynch.;;|.;; mixi|
|000001f0| 6e 20 66 6f 72 20 64 72 | 61 67 67 69 6e 67 20 26 |n for dr|agging &|
|00000200| 20 64 72 6f 70 70 69 6e | 67 20 76 69 65 77 73 0d | droppin|g views.|
|00000210| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000220| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000230| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000240| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000250| 3b 3b 3b 3b 3b 3b 0d 0d | 28 6f 6f 75 2d 64 65 70 |;;;;;;..|(oou-dep|
|00000260| 65 6e 64 65 6e 63 69 65 | 73 0d 20 3a 64 72 61 67 |endencie|s. :drag|
|00000270| 67 61 62 6c 65 2d 73 76 | 6d 0d 20 3a 73 69 6d 70 |gable-sv|m. :simp|
|00000280| 6c 65 2d 76 69 65 77 2d | 63 65 29 0d 0d 0d 28 65 |le-view-|ce)...(e|
|00000290| 78 70 6f 72 74 20 27 28 | 64 72 6f 70 70 61 62 6c |xport '(|droppabl|
|000002a0| 65 2d 73 76 6d 20 70 72 | 65 2d 64 72 6f 70 2d 68 |e-svm pr|e-drop-h|
|000002b0| 69 6c 69 74 65 20 64 72 | 6f 70 70 61 62 6c 65 2d |ilite dr|oppable-|
|000002c0| 70 29 29 0d 0d 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |p))..;;;|;;;;;;;;|
|000002d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000300| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 0d 0d 28 64 65 |;;;;;;;;|;;;..(de|
|00000310| 66 63 6c 61 73 73 20 64 | 72 6f 70 70 61 62 6c 65 |fclass d|roppable|
|00000320| 2d 73 76 6d 20 28 64 72 | 61 67 67 61 62 6c 65 2d |-svm (dr|aggable-|
|00000330| 73 76 6d 29 0d 20 20 28 | 28 64 72 6f 70 2d 74 61 |svm).  (|(drop-ta|
|00000340| 72 67 65 74 2d 63 6c 61 | 73 73 20 3a 69 6e 69 74 |rget-cla|ss :init|
|00000350| 61 72 67 20 3a 64 72 6f | 70 2d 74 61 72 67 65 74 |arg :dro|p-target|
|00000360| 2d 63 6c 61 73 73 0d 20 | 20 20 20 20 20 20 20 20 |-class. |        |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 61 63 |        |     :ac|
|00000380| 63 65 73 73 6f 72 20 64 | 72 6f 70 2d 74 61 72 67 |cessor d|rop-targ|
|00000390| 65 74 2d 63 6c 61 73 73 | 29 0d 20 20 20 28 64 72 |et-class|).   (dr|
|000003a0| 6f 70 2d 74 61 72 67 65 | 74 73 20 20 20 20 20 20 |op-targe|ts      |
|000003b0| 3a 69 6e 69 74 61 72 67 | 20 3a 64 72 6f 70 2d 74 |:initarg| :drop-t|
|000003c0| 61 72 67 65 74 73 0d 20 | 20 20 20 20 20 20 20 20 |argets. |        |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 61 63 |        |     :ac|
|000003e0| 63 65 73 73 6f 72 20 64 | 72 6f 70 2d 74 61 72 67 |cessor d|rop-targ|
|000003f0| 65 74 73 29 0d 20 20 20 | 28 64 72 6f 70 2d 61 63 |ets).   |(drop-ac|
|00000400| 74 69 6f 6e 2d 66 6e 20 | 20 20 20 3a 69 6e 69 74 |tion-fn |   :init|
|00000410| 61 72 67 20 3a 64 72 6f | 70 2d 61 63 74 69 6f 6e |arg :dro|p-action|
|00000420| 2d 66 6e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |-fn.    |        |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 3a 61 63 63 65 73 |        |  :acces|
|00000440| 73 6f 72 20 64 72 6f 70 | 2d 61 63 74 69 6f 6e 2d |sor drop|-action-|
|00000450| 66 6e 29 29 0d 20 20 28 | 3a 64 65 66 61 75 6c 74 |fn)).  (|:default|
|00000460| 2d 69 6e 69 74 61 72 67 | 73 20 0d 20 20 20 20 3a |-initarg|s .    :|
|00000470| 64 72 6f 70 2d 74 61 72 | 67 65 74 2d 63 6c 61 73 |drop-tar|get-clas|
|00000480| 73 20 27 64 69 61 6c 6f | 67 2d 69 74 65 6d 0d 20 |s 'dialo|g-item. |
|00000490| 20 20 20 29 29 0d 0d 28 | 64 65 66 6d 65 74 68 6f |   ))..(|defmetho|
|000004a0| 64 20 63 61 6c 6c 2d 64 | 72 61 67 2d 61 63 74 69 |d call-d|rag-acti|
|000004b0| 6f 6e 20 3a 62 65 66 6f | 72 65 20 28 28 73 76 20 |on :befo|re ((sv |
|000004c0| 64 72 6f 70 70 61 62 6c | 65 2d 73 76 6d 29 29 0d |droppabl|e-svm)).|
|000004d0| 20 20 28 64 65 63 6c 61 | 72 65 20 28 73 70 65 63 |  (decla|re (spec|
|000004e0| 69 61 6c 20 2a 63 75 72 | 72 65 6e 74 2d 64 72 6f |ial *cur|rent-dro|
|000004f0| 70 70 61 62 6c 65 2d 74 | 61 72 67 65 74 2a 29 29 |ppable-t|arget*))|
|00000500| 0d 20 20 28 6c 65 74 2a | 20 28 28 77 68 65 72 65 |.  (let*| ((where|
|00000510| 20 28 25 73 74 61 63 6b | 2d 62 6c 6f 63 6b 20 28 | (%stack|-block (|
|00000520| 28 70 20 34 29 29 20 28 | 23 5f 47 65 74 4d 6f 75 |(p 4)) (|#_GetMou|
|00000530| 73 65 20 70 29 20 28 23 | 5f 4c 6f 63 61 6c 54 6f |se p) (#|_LocalTo|
|00000540| 47 6c 6f 62 61 6c 20 70 | 29 20 28 25 67 65 74 2d |Global p|) (%get-|
|00000550| 70 6f 69 6e 74 20 70 29 | 29 29 0d 20 20 20 20 20 |point p)|)).     |
|00000560| 20 20 20 20 28 6e 65 77 | 2d 74 61 72 67 65 74 20 |    (new|-target |
|00000570| 28 66 69 6e 64 2d 64 72 | 6f 70 70 61 62 6c 65 2d |(find-dr|oppable-|
|00000580| 76 69 65 77 2d 63 6f 6e | 74 61 69 6e 69 6e 67 2d |view-con|taining-|
|00000590| 70 6f 69 6e 74 20 73 76 | 20 77 68 65 72 65 29 29 |point sv| where))|
|000005a0| 29 0d 20 20 20 20 28 75 | 6e 6c 65 73 73 20 28 65 |).    (u|nless (e|
|000005b0| 71 20 6e 65 77 2d 74 61 | 72 67 65 74 20 2a 63 75 |q new-ta|rget *cu|
|000005c0| 72 72 65 6e 74 2d 64 72 | 6f 70 70 61 62 6c 65 2d |rrent-dr|oppable-|
|000005d0| 74 61 72 67 65 74 2a 29 | 0d 20 20 20 20 20 20 28 |target*)|.      (|
|000005e0| 77 68 65 6e 20 2a 63 75 | 72 72 65 6e 74 2d 64 72 |when *cu|rrent-dr|
|000005f0| 6f 70 70 61 62 6c 65 2d | 74 61 72 67 65 74 2a 0d |oppable-|target*.|
|00000600| 20 20 20 20 20 20 20 20 | 28 70 72 65 2d 64 72 6f |        |(pre-dro|
|00000610| 70 2d 68 69 6c 69 74 65 | 20 2a 63 75 72 72 65 6e |p-hilite| *curren|
|00000620| 74 2d 64 72 6f 70 70 61 | 62 6c 65 2d 74 61 72 67 |t-droppa|ble-targ|
|00000630| 65 74 2a 20 6e 69 6c 29 | 29 0d 20 20 20 20 20 20 |et* nil)|).      |
|00000640| 28 77 68 65 6e 20 6e 65 | 77 2d 74 61 72 67 65 74 |(when ne|w-target|
|00000650| 0d 20 20 20 20 20 20 20 | 20 28 70 72 65 2d 64 72 |.       | (pre-dr|
|00000660| 6f 70 2d 68 69 6c 69 74 | 65 20 6e 65 77 2d 74 61 |op-hilit|e new-ta|
|00000670| 72 67 65 74 20 74 29 29 | 0d 20 20 20 20 20 20 28 |rget t))|.      (|
|00000680| 73 65 74 66 20 2a 63 75 | 72 72 65 6e 74 2d 64 72 |setf *cu|rrent-dr|
|00000690| 6f 70 70 61 62 6c 65 2d | 74 61 72 67 65 74 2a 20 |oppable-|target* |
|000006a0| 6e 65 77 2d 74 61 72 67 | 65 74 29 29 29 29 0d 0d |new-targ|et))))..|
|000006b0| 28 64 65 66 6d 65 74 68 | 6f 64 20 64 72 61 67 2d |(defmeth|od drag-|
|000006c0| 69 74 65 6d 20 28 28 73 | 76 20 64 72 6f 70 70 61 |item ((s|v droppa|
|000006d0| 62 6c 65 2d 73 76 6d 29 | 20 77 68 65 72 65 29 0d |ble-svm)| where).|
|000006e0| 20 20 28 6c 65 74 20 28 | 28 2a 63 75 72 72 65 6e |  (let (|(*curren|
|000006f0| 74 2d 64 72 6f 70 70 61 | 62 6c 65 2d 74 61 72 67 |t-droppa|ble-targ|
|00000700| 65 74 2a 29 29 0d 20 20 | 20 20 28 64 65 63 6c 61 |et*)).  |  (decla|
|00000710| 72 65 20 28 73 70 65 63 | 69 61 6c 20 2a 63 75 72 |re (spec|ial *cur|
|00000720| 72 65 6e 74 2d 64 72 6f | 70 70 61 62 6c 65 2d 74 |rent-dro|ppable-t|
|00000730| 61 72 67 65 74 2a 29 29 | 0d 20 20 20 20 28 6d 75 |arget*))|.    (mu|
|00000740| 6c 74 69 70 6c 65 2d 76 | 61 6c 75 65 2d 62 69 6e |ltiple-v|alue-bin|
|00000750| 64 20 28 64 72 61 67 2d | 6f 66 66 73 65 74 20 65 |d (drag-|offset e|
|00000760| 6e 64 2d 61 63 74 69 6f | 6e 2d 70 29 20 28 63 61 |nd-actio|n-p) (ca|
|00000770| 6c 6c 2d 6e 65 78 74 2d | 6d 65 74 68 6f 64 29 0d |ll-next-|method).|
|00000780| 20 20 20 20 20 20 28 77 | 68 65 6e 20 2a 63 75 72 |      (w|hen *cur|
|00000790| 72 65 6e 74 2d 64 72 6f | 70 70 61 62 6c 65 2d 74 |rent-dro|ppable-t|
|000007a0| 61 72 67 65 74 2a 0d 20 | 20 20 20 20 20 20 20 28 |arget*. |       (|
|000007b0| 70 72 65 2d 64 72 6f 70 | 2d 68 69 6c 69 74 65 20 |pre-drop|-hilite |
|000007c0| 2a 63 75 72 72 65 6e 74 | 2d 64 72 6f 70 70 61 62 |*current|-droppab|
|000007d0| 6c 65 2d 74 61 72 67 65 | 74 2a 20 6e 69 6c 29 0d |le-targe|t* nil).|
|000007e0| 20 20 20 20 20 20 20 20 | 28 77 68 65 6e 20 64 72 |        |(when dr|
|000007f0| 61 67 2d 6f 66 66 73 65 | 74 0d 20 20 20 20 20 20 |ag-offse|t.      |
|00000800| 20 20 20 20 28 63 61 6c | 6c 2d 64 72 6f 70 2d 61 |    (cal|l-drop-a|
|00000810| 63 74 69 6f 6e 20 73 76 | 20 2a 63 75 72 72 65 6e |ction sv| *curren|
|00000820| 74 2d 64 72 6f 70 70 61 | 62 6c 65 2d 74 61 72 67 |t-droppa|ble-targ|
|00000830| 65 74 2a 20 64 72 61 67 | 2d 6f 66 66 73 65 74 20 |et* drag|-offset |
|00000840| 28 61 64 64 2d 70 6f 69 | 6e 74 73 20 77 68 65 72 |(add-poi|nts wher|
|00000850| 65 20 64 72 61 67 2d 6f | 66 66 73 65 74 29 29 0d |e drag-o|ffset)).|
|00000860| 20 20 20 20 20 20 20 20 | 20 20 28 73 65 74 66 20 |        |  (setf |
|00000870| 65 6e 64 2d 61 63 74 69 | 6f 6e 2d 70 20 6e 69 6c |end-acti|on-p nil|
|00000880| 29 29 29 0d 20 20 20 20 | 20 20 28 76 61 6c 75 65 |))).    |  (value|
|00000890| 73 20 64 72 61 67 2d 6f | 66 66 73 65 74 20 65 6e |s drag-o|ffset en|
|000008a0| 64 2d 61 63 74 69 6f 6e | 2d 70 29 29 29 29 0d 0d |d-action|-p))))..|
|000008b0| 28 64 65 66 6d 65 74 68 | 6f 64 20 63 61 6c 6c 2d |(defmeth|od call-|
|000008c0| 64 72 6f 70 2d 61 63 74 | 69 6f 6e 20 28 28 73 76 |drop-act|ion ((sv|
|000008d0| 20 64 72 6f 70 70 61 62 | 6c 65 2d 73 76 6d 29 20 | droppab|le-svm) |
|000008e0| 28 74 61 72 67 65 74 20 | 73 69 6d 70 6c 65 2d 76 |(target |simple-v|
|000008f0| 69 65 77 29 20 64 72 61 | 67 2d 6f 66 66 73 65 74 |iew) dra|g-offset|
|00000900| 20 64 65 73 74 2d 70 6f | 69 6e 74 29 0d 20 20 3b | dest-po|int).  ;|
|00000910| 3b 65 78 69 73 74 73 20 | 70 72 69 6d 61 72 69 6c |;exists |primaril|
|00000920| 79 20 74 6f 20 62 65 20 | 73 70 65 63 69 61 6c 69 |y to be |speciali|
|00000930| 7a 65 64 20 62 79 20 73 | 65 6c 65 63 74 61 62 6c |zed by s|electabl|
|00000940| 65 2d 73 76 6d 0d 20 20 | 28 64 72 6f 70 2d 61 63 |e-svm.  |(drop-ac|
|00000950| 74 69 6f 6e 20 73 76 20 | 74 61 72 67 65 74 20 64 |tion sv |target d|
|00000960| 72 61 67 2d 6f 66 66 73 | 65 74 20 64 65 73 74 2d |rag-offs|et dest-|
|00000970| 70 6f 69 6e 74 29 29 0d | 0d 28 64 65 66 6d 65 74 |point)).|.(defmet|
|00000980| 68 6f 64 20 64 72 6f 70 | 2d 61 63 74 69 6f 6e 20 |hod drop|-action |
|00000990| 28 28 73 76 20 64 72 6f | 70 70 61 62 6c 65 2d 73 |((sv dro|ppable-s|
|000009a0| 76 6d 29 20 28 74 61 72 | 67 65 74 20 73 69 6d 70 |vm) (tar|get simp|
|000009b0| 6c 65 2d 76 69 65 77 29 | 20 64 72 61 67 2d 6f 66 |le-view)| drag-of|
|000009c0| 66 73 65 74 20 64 65 73 | 74 2d 70 6f 69 6e 74 29 |fset des|t-point)|
|000009d0| 0d 20 20 28 77 68 65 6e | 20 28 73 6c 6f 74 2d 62 |.  (when| (slot-b|
|000009e0| 6f 75 6e 64 70 20 73 76 | 20 27 64 72 6f 70 2d 61 |oundp sv| 'drop-a|
|000009f0| 63 74 69 6f 6e 2d 66 6e | 29 0d 20 20 20 20 28 66 |ction-fn|).    (f|
|00000a00| 75 6e 63 61 6c 6c 20 28 | 64 72 6f 70 2d 61 63 74 |uncall (|drop-act|
|00000a10| 69 6f 6e 2d 66 6e 20 73 | 76 29 20 73 76 20 74 61 |ion-fn s|v) sv ta|
|00000a20| 72 67 65 74 20 64 72 61 | 67 2d 6f 66 66 73 65 74 |rget dra|g-offset|
|00000a30| 20 64 65 73 74 2d 70 6f | 69 6e 74 29 29 29 0d 0d | dest-po|int)))..|
|00000a40| 28 64 65 66 6d 65 74 68 | 6f 64 20 70 72 65 2d 64 |(defmeth|od pre-d|
|00000a50| 72 6f 70 2d 68 69 6c 69 | 74 65 20 28 28 73 76 20 |rop-hili|te ((sv |
|00000a60| 73 69 6d 70 6c 65 2d 76 | 69 65 77 29 20 68 69 6c |simple-v|iew) hil|
|00000a70| 69 74 65 2d 66 6c 61 67 | 29 0d 20 20 28 77 69 74 |ite-flag|).  (wit|
|00000a80| 68 2d 66 6f 63 75 73 65 | 64 2d 76 69 65 77 20 28 |h-focuse|d-view (|
|00000a90| 66 6f 63 75 73 69 6e 67 | 2d 76 69 65 77 20 73 76 |focusing|-view sv|
|00000aa0| 29 0d 20 20 20 20 28 77 | 69 74 68 2d 68 69 6c 69 |).    (w|ith-hili|
|00000ab0| 74 65 2d 63 6f 6c 6f 72 | 20 2a 62 6c 61 63 6b 2d |te-color| *black-|
|00000ac0| 63 6f 6c 6f 72 2a 0d 20 | 20 20 20 20 20 28 68 69 |color*. |     (hi|
|00000ad0| 6c 69 74 65 2d 76 69 65 | 77 20 73 76 20 68 69 6c |lite-vie|w sv hil|
|00000ae0| 69 74 65 2d 66 6c 61 67 | 29 29 29 29 0d 0d 28 64 |ite-flag|))))..(d|
|00000af0| 65 66 6d 65 74 68 6f 64 | 20 64 72 6f 70 70 61 62 |efmethod| droppab|
|00000b00| 6c 65 2d 70 20 28 28 73 | 76 20 64 72 6f 70 70 61 |le-p ((s|v droppa|
|00000b10| 62 6c 65 2d 73 76 6d 29 | 20 28 74 61 72 67 65 74 |ble-svm)| (target|
|00000b20| 20 73 69 6d 70 6c 65 2d | 76 69 65 77 29 29 0d 20 | simple-|view)). |
|00000b30| 20 28 75 6e 6c 65 73 73 | 20 28 65 71 20 73 76 20 | (unless| (eq sv |
|00000b40| 74 61 72 67 65 74 29 0d | 20 20 20 20 28 77 68 65 |target).|    (whe|
|00000b50| 6e 20 28 74 79 70 65 70 | 20 74 61 72 67 65 74 20 |n (typep| target |
|00000b60| 28 64 72 6f 70 2d 74 61 | 72 67 65 74 2d 63 6c 61 |(drop-ta|rget-cla|
|00000b70| 73 73 20 73 76 29 29 0d | 20 20 20 20 20 20 28 69 |ss sv)).|      (i|
|00000b80| 66 20 28 73 6c 6f 74 2d | 62 6f 75 6e 64 70 20 73 |f (slot-|boundp s|
|00000b90| 76 20 27 64 72 6f 70 2d | 74 61 72 67 65 74 73 29 |v 'drop-|targets)|
|00000ba0| 0d 20 20 20 20 20 20 20 | 20 28 77 68 65 6e 20 28 |.       | (when (|
|00000bb0| 66 69 6e 64 20 28 76 69 | 65 77 2d 6e 69 63 6b 2d |find (vi|ew-nick-|
|00000bc0| 6e 61 6d 65 20 74 61 72 | 67 65 74 29 20 28 64 72 |name tar|get) (dr|
|00000bd0| 6f 70 2d 74 61 72 67 65 | 74 73 20 73 76 29 29 20 |op-targe|ts sv)) |
|00000be0| 74 61 72 67 65 74 29 0d | 20 20 20 20 20 20 20 20 |target).|        |
|00000bf0| 74 61 72 67 65 74 29 29 | 29 29 0d 0d 28 64 65 66 |target))|))..(def|
|00000c00| 6d 65 74 68 6f 64 20 66 | 69 6e 64 2d 64 72 6f 70 |method f|ind-drop|
|00000c10| 70 61 62 6c 65 2d 76 69 | 65 77 2d 63 6f 6e 74 61 |pable-vi|ew-conta|
|00000c20| 69 6e 69 6e 67 2d 70 6f | 69 6e 74 20 28 28 73 76 |ining-po|int ((sv|
|00000c30| 20 64 72 6f 70 70 61 62 | 6c 65 2d 73 76 6d 29 20 | droppab|le-svm) |
|00000c40| 77 68 65 72 65 29 0d 20 | 20 28 6c 65 74 20 28 28 |where). | (let ((|
|00000c50| 76 20 28 72 6f 6f 74 2d | 64 72 6f 70 2d 74 61 72 |v (root-|drop-tar|
|00000c60| 67 65 74 2d 76 69 65 77 | 20 73 76 20 77 68 65 72 |get-view| sv wher|
|00000c70| 65 29 29 29 0d 20 20 20 | 20 28 77 68 65 6e 20 76 |e))).   | (when v|
|00000c80| 0d 20 20 20 20 20 20 28 | 64 72 6f 70 70 61 62 6c |.      (|droppabl|
|00000c90| 65 2d 70 20 73 76 20 28 | 66 69 6e 64 2d 76 69 65 |e-p sv (|find-vie|
|00000ca0| 77 2d 63 6f 6e 74 61 69 | 6e 69 6e 67 2d 70 6f 69 |w-contai|ning-poi|
|00000cb0| 6e 74 20 76 20 28 67 6c | 6f 62 61 6c 2d 74 6f 2d |nt v (gl|obal-to-|
|00000cc0| 76 69 65 77 20 76 20 77 | 68 65 72 65 29 29 29 29 |view v w|here))))|
|00000cd0| 29 29 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 72 |))..(def|method r|
|00000ce0| 6f 6f 74 2d 64 72 6f 70 | 2d 74 61 72 67 65 74 2d |oot-drop|-target-|
|00000cf0| 76 69 65 77 20 28 28 73 | 76 20 64 72 6f 70 70 61 |view ((s|v droppa|
|00000d00| 62 6c 65 2d 73 76 6d 29 | 20 77 68 65 72 65 29 0d |ble-svm)| where).|
|00000d10| 20 20 28 65 63 61 73 65 | 20 28 64 72 61 67 2d 62 |  (ecase| (drag-b|
|00000d20| 6f 75 6e 64 73 20 73 76 | 29 0d 20 20 20 20 28 3a |ounds sv|).    (:|
|00000d30| 63 6f 6e 74 61 69 6e 65 | 72 20 28 76 69 65 77 2d |containe|r (view-|
|00000d40| 63 6f 6e 74 61 69 6e 65 | 72 20 73 76 29 29 0d 20 |containe|r sv)). |
|00000d50| 20 20 20 28 3a 77 69 6e | 64 6f 77 20 28 76 69 65 |   (:win|dow (vie|
|00000d60| 77 2d 77 69 6e 64 6f 77 | 20 73 76 29 29 0d 20 20 |w-window| sv)).  |
|00000d70| 20 20 28 3a 6e 6f 6e 65 | 20 28 66 69 6e 64 2d 76 |  (:none| (find-v|
|00000d80| 69 65 77 2d 63 6f 6e 74 | 61 69 6e 69 6e 67 2d 70 |iew-cont|aining-p|
|00000d90| 6f 69 6e 74 20 6e 69 6c | 20 77 68 65 72 65 20 6e |oint nil| where n|
|00000da0| 69 6c 20 74 29 29 29 29 | 0d 0d 3b 3b 3b 3b 3b 3b |il t))))|..;;;;;;|
|00000db0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000dc0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000dd0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000de0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000df0| 0d 0d 0d 23 7c 0d 0d 3b | 3b 3b 20 61 20 6d 6f 64 |...#|..;|;; a mod|
|00000e00| 65 73 74 20 65 78 61 6d | 70 6c 65 20 2d 20 61 64 |est exam|ple - ad|
|00000e10| 64 69 6e 67 20 64 72 6f | 70 20 41 4e 44 20 73 65 |ding dro|p AND se|
|00000e20| 6c 65 63 74 20 62 65 68 | 61 76 69 6f 72 20 74 6f |lect beh|avior to|
|00000e30| 20 73 74 61 74 69 63 20 | 74 65 78 74 20 64 69 61 | static |text dia|
|00000e40| 6c 6f 67 20 69 74 65 6d | 73 0d 3b 3b 3b 20 28 75 |log item|s.;;; (u|
|00000e50| 73 65 20 73 68 69 66 74 | 20 74 6f 20 73 65 6c 65 |se shift| to sele|
|00000e60| 63 74 20 6d 75 6c 74 69 | 70 6c 65 20 69 74 65 6d |ct multi|ple item|
|00000e70| 73 20 74 6f 20 64 72 6f | 70 29 0d 0d 28 6f 6f 75 |s to dro|p)..(oou|
|00000e80| 2d 64 65 70 65 6e 64 65 | 6e 63 69 65 73 20 3a 73 |-depende|ncies :s|
|00000e90| 65 6c 65 63 74 61 62 6c | 65 2d 73 76 6d 29 0d 0d |electabl|e-svm)..|
|00000ea0| 28 64 65 66 63 6c 61 73 | 73 20 73 74 2d 73 65 6c |(defclas|s st-sel|
|00000eb0| 2d 64 72 6f 70 20 28 73 | 65 6c 65 63 74 61 62 6c |-drop (s|electabl|
|00000ec0| 65 2d 73 76 6d 20 64 72 | 6f 70 70 61 62 6c 65 2d |e-svm dr|oppable-|
|00000ed0| 73 76 6d 20 73 74 61 74 | 69 63 2d 74 65 78 74 2d |svm stat|ic-text-|
|00000ee0| 64 69 61 6c 6f 67 2d 69 | 74 65 6d 29 20 28 29 29 |dialog-i|tem) ())|
|00000ef0| 0d 3b 6e 6f 74 65 20 74 | 68 61 74 20 73 65 6c 65 |.;note t|hat sele|
|00000f00| 63 74 61 62 6c 65 2d 73 | 76 6d 20 70 72 65 63 65 |ctable-s|vm prece|
|00000f10| 64 65 73 20 64 72 6f 70 | 70 61 62 6c 65 2d 73 76 |des drop|pable-sv|
|00000f20| 6d 0d 0d 28 64 65 66 75 | 6e 20 70 72 69 6e 74 2d |m..(defu|n print-|
|00000f30| 74 61 72 67 65 74 20 28 | 64 69 20 74 61 72 67 65 |target (|di targe|
|00000f40| 74 20 6f 66 66 73 65 74 | 20 77 68 65 72 65 29 0d |t offset| where).|
|00000f50| 20 20 28 66 6f 72 6d 61 | 74 20 74 20 22 64 72 6f |  (forma|t t "dro|
|00000f60| 70 70 65 64 20 7e 73 20 | 6f 6e 74 6f 20 7e 73 20 |pped ~s |onto ~s |
|00000f70| 61 74 20 7e 61 20 28 64 | 65 6c 74 61 20 3d 20 7e |at ~a (d|elta = ~|
|00000f80| 61 29 7e 25 22 0d 20 20 | 20 20 20 20 20 20 20 20 |a)~%".  |        |
|00000f90| 28 64 69 61 6c 6f 67 2d | 69 74 65 6d 2d 74 65 78 |(dialog-|item-tex|
|00000fa0| 74 20 64 69 29 0d 20 20 | 20 20 20 20 20 20 20 20 |t di).  |        |
|00000fb0| 28 64 69 61 6c 6f 67 2d | 69 74 65 6d 2d 74 65 78 |(dialog-|item-tex|
|00000fc0| 74 20 74 61 72 67 65 74 | 29 0d 20 20 20 20 20 20 |t target|).      |
|00000fd0| 20 20 20 20 28 70 6f 69 | 6e 74 2d 73 74 72 69 6e |    (poi|nt-strin|
|00000fe0| 67 20 77 68 65 72 65 29 | 0d 20 20 20 20 20 20 20 |g where)|.       |
|00000ff0| 20 20 20 28 70 6f 69 6e | 74 2d 73 74 72 69 6e 67 |   (poin|t-string|
|00001000| 20 6f 66 66 73 65 74 29 | 29 29 0d 0d 28 73 65 74 | offset)|))..(set|
|00001010| 66 20 2a 74 65 73 74 2d | 77 2a 0d 20 20 20 20 20 |f *test-|w*.     |
|00001020| 20 28 6d 61 6b 65 2d 69 | 6e 73 74 61 6e 63 65 20 | (make-i|nstance |
|00001030| 27 64 69 61 6c 6f 67 0d | 20 20 20 20 20 20 20 20 |'dialog.|        |
|00001040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 77 69 |        |     :wi|
|00001050| 6e 64 6f 77 2d 74 79 70 | 65 20 3a 64 6f 63 75 6d |ndow-typ|e :docum|
|00001060| 65 6e 74 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ent.    |        |
|00001070| 20 20 20 20 20 20 20 20 | 20 3a 76 69 65 77 2d 70 |        | :view-p|
|00001080| 6f 73 69 74 69 6f 6e 20 | 3a 63 65 6e 74 65 72 65 |osition |:centere|
|00001090| 64 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d.      |        |
|000010a0| 20 20 20 20 20 20 20 3a | 76 69 65 77 2d 73 69 7a |       :|view-siz|
|000010b0| 65 20 23 40 28 32 30 30 | 20 31 35 30 29 0d 20 20 |e #@(200| 150).  |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010d0| 20 20 20 3a 77 69 6e 64 | 6f 77 2d 74 69 74 6c 65 |   :wind|ow-title|
|000010e0| 20 22 64 72 6f 70 70 61 | 62 6c 65 20 64 65 6d 6f | "droppa|ble demo|
|000010f0| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |".      |        |
|00001100| 20 20 20 20 20 20 20 3a | 63 6c 6f 73 65 2d 62 6f |       :|close-bo|
|00001110| 78 2d 70 20 74 0d 20 20 | 20 20 20 20 20 20 20 20 |x-p t.  |        |
|00001120| 20 20 20 20 20 20 20 20 | 20 20 20 3a 76 69 65 77 |        |   :view|
|00001130| 2d 73 75 62 76 69 65 77 | 73 0d 20 20 20 20 20 20 |-subview|s.      |
|00001140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00001150| 6c 69 73 74 20 28 6d 61 | 6b 65 2d 69 6e 73 74 61 |list (ma|ke-insta|
|00001160| 6e 63 65 20 27 73 74 2d | 73 65 6c 2d 64 72 6f 70 |nce 'st-|sel-drop|
|00001170| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001190| 20 20 20 20 20 20 20 20 | 20 20 20 3a 76 69 65 77 |        |   :view|
|000011a0| 2d 70 6f 73 69 74 69 6f | 6e 20 23 40 28 32 30 20 |-positio|n #@(20 |
|000011b0| 32 30 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |20).    |        |
|000011c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000011d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 64 |        |      :d|
|000011e0| 69 61 6c 6f 67 2d 69 74 | 65 6d 2d 74 65 78 74 20 |ialog-it|em-text |
|000011f0| 22 64 72 6f 70 2f 73 65 | 6c 65 63 74 20 6d 65 22 |"drop/se|lect me"|
|00001200| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001220| 20 20 20 20 20 20 20 20 | 20 20 20 3a 76 69 65 77 |        |   :view|
|00001230| 2d 6e 69 63 6b 2d 6e 61 | 6d 65 20 3a 69 31 0d 20 |-nick-na|me :i1. |
|00001240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001260| 20 20 20 20 20 20 20 20 | 20 3a 73 65 6c 65 63 74 |        | :select|
|00001270| 69 6f 6e 2d 63 6c 75 73 | 74 65 72 20 31 0d 20 20 |ion-clus|ter 1.  |
|00001280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000012a0| 20 20 20 20 20 20 20 20 | 3a 64 72 6f 70 2d 74 61 |        |:drop-ta|
|000012b0| 72 67 65 74 73 20 27 28 | 3a 69 34 20 3a 69 35 29 |rgets '(|:i4 :i5)|
|000012c0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000012d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000012e0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 64 72 61 67 |        |   :drag|
|000012f0| 2d 62 6f 75 6e 64 73 20 | 3a 77 69 6e 64 6f 77 0d |-bounds |:window.|
|00001300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001320| 20 20 20 20 20 20 20 20 | 20 20 3a 64 72 6f 70 2d |        |  :drop-|
|00001330| 61 63 74 69 6f 6e 2d 66 | 6e 20 23 27 70 72 69 6e |action-f|n #'prin|
|00001340| 74 2d 74 61 72 67 65 74 | 0d 20 20 20 20 20 20 20 |t-target|.       |
|00001350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001370| 20 20 20 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |   ).   |        |
|00001380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001390| 28 6d 61 6b 65 2d 69 6e | 73 74 61 6e 63 65 20 27 |(make-in|stance '|
|000013a0| 73 74 2d 73 65 6c 2d 64 | 72 6f 70 0d 20 20 20 20 |st-sel-d|rop.    |
|000013b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013d0| 20 20 20 20 20 20 3a 76 | 69 65 77 2d 70 6f 73 69 |      :v|iew-posi|
|000013e0| 74 69 6f 6e 20 23 40 28 | 32 30 20 34 30 29 0d 20 |tion #@(|20 40). |
|000013f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001410| 20 20 20 20 20 20 20 20 | 20 3a 64 69 61 6c 6f 67 |        | :dialog|
|00001420| 2d 69 74 65 6d 2d 74 65 | 78 74 20 22 6d 65 20 74 |-item-te|xt "me t|
|00001430| 6f 6f 22 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |oo".    |        |
|00001440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 76 |        |      :v|
|00001460| 69 65 77 2d 6e 69 63 6b | 2d 6e 61 6d 65 20 3a 69 |iew-nick|-name :i|
|00001470| 32 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2.      |        |
|00001480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001490| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 73 65 6c |        |    :sel|
|000014a0| 65 63 74 69 6f 6e 2d 63 | 6c 75 73 74 65 72 20 31 |ection-c|luster 1|
|000014b0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000014c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000014d0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 64 72 6f 70 |        |   :drop|
|000014e0| 2d 74 61 72 67 65 74 73 | 20 27 28 3a 69 34 20 3a |-targets| '(:i4 :|
|000014f0| 69 35 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |i5).    |        |
|00001500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 64 |        |      :d|
|00001520| 72 61 67 2d 62 6f 75 6e | 64 73 20 3a 6e 6f 6e 65 |rag-boun|ds :none|
|00001530| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001550| 20 20 20 20 20 20 20 20 | 20 20 20 3a 64 72 6f 70 |        |   :drop|
|00001560| 2d 61 63 74 69 6f 6e 2d | 66 6e 20 23 27 70 72 69 |-action-|fn #'pri|
|00001570| 6e 74 2d 74 61 72 67 65 | 74 0d 20 20 20 20 20 20 |nt-targe|t.      |
|00001580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000015a0| 20 20 20 20 29 0d 20 20 | 20 20 20 20 20 20 20 20 |    ).  |        |
|000015b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000015c0| 20 28 6d 61 6b 65 2d 69 | 6e 73 74 61 6e 63 65 20 | (make-i|nstance |
|000015d0| 27 73 74 2d 73 65 6c 2d | 64 72 6f 70 0d 20 20 20 |'st-sel-|drop.   |
|000015e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000015f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001600| 20 20 20 20 20 20 20 3a | 76 69 65 77 2d 70 6f 73 |       :|view-pos|
|00001610| 69 74 69 6f 6e 20 23 40 | 28 32 30 20 36 30 29 0d |ition #@|(20 60).|
|00001620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001640| 20 20 20 20 20 20 20 20 | 20 20 3a 64 69 61 6c 6f |        |  :dialo|
|00001650| 67 2d 69 74 65 6d 2d 74 | 65 78 74 20 22 6d 65 20 |g-item-t|ext "me |
|00001660| 33 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3".     |        |
|00001670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 76 69 |        |     :vi|
|00001690| 65 77 2d 6e 69 63 6b 2d | 6e 61 6d 65 20 3a 69 33 |ew-nick-|name :i3|
|000016a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000016b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000016c0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 73 65 6c 65 |        |   :sele|
|000016d0| 63 74 69 6f 6e 2d 63 6c | 75 73 74 65 72 20 31 0d |ction-cl|uster 1.|
|000016e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000016f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001700| 20 20 20 20 20 20 20 20 | 20 20 3a 64 72 6f 70 2d |        |  :drop-|
|00001710| 74 61 72 67 65 74 73 20 | 27 28 3a 69 34 20 3a 69 |targets |'(:i4 :i|
|00001720| 35 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |5).     |        |
|00001730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 64 72 |        |     :dr|
|00001750| 61 67 2d 62 6f 75 6e 64 | 73 20 3a 77 69 6e 64 6f |ag-bound|s :windo|
|00001760| 77 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |w.      |        |
|00001770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001780| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 64 72 6f |        |    :dro|
|00001790| 70 2d 61 63 74 69 6f 6e | 2d 66 6e 20 23 27 70 72 |p-action|-fn #'pr|
|000017a0| 69 6e 74 2d 74 61 72 67 | 65 74 0d 20 20 20 20 20 |int-targ|et.     |
|000017b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000017c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000017d0| 20 20 20 20 20 29 0d 20 | 20 20 20 20 20 20 20 20 |     ). |        |
|000017e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000017f0| 20 20 28 6d 61 6b 65 2d | 69 6e 73 74 61 6e 63 65 |  (make-|instance|
|00001800| 20 27 73 74 61 74 69 63 | 2d 74 65 78 74 2d 64 69 | 'static|-text-di|
|00001810| 61 6c 6f 67 2d 69 74 65 | 6d 0d 20 20 20 20 20 20 |alog-ite|m.      |
|00001820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001840| 20 20 20 20 3a 76 69 65 | 77 2d 70 6f 73 69 74 69 |    :vie|w-positi|
|00001850| 6f 6e 20 23 40 28 32 30 | 20 31 30 30 29 0d 20 20 |on #@(20| 100).  |
|00001860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001880| 20 20 20 20 20 20 20 20 | 3a 64 69 61 6c 6f 67 2d |        |:dialog-|
|00001890| 69 74 65 6d 2d 74 65 78 | 74 20 22 68 69 74 20 6d |item-tex|t "hit m|
|000018a0| 65 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e".     |        |
|000018b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 76 69 |        |     :vi|
|000018d0| 65 77 2d 6e 69 63 6b 2d | 6e 61 6d 65 20 3a 69 34 |ew-nick-|name :i4|
|000018e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000018f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001900| 20 20 20 20 20 20 20 20 | 20 20 20 29 0d 20 20 20 |        |   ).   |
|00001910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001920| 20 20 20 20 20 20 20 20 | 28 6d 61 6b 65 2d 69 6e |        |(make-in|
|00001930| 73 74 61 6e 63 65 20 27 | 73 74 61 74 69 63 2d 74 |stance '|static-t|
|00001940| 65 78 74 2d 64 69 61 6c | 6f 67 2d 69 74 65 6d 0d |ext-dial|og-item.|
|00001950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001970| 20 20 20 20 20 20 20 20 | 20 20 3a 76 69 65 77 2d |        |  :view-|
|00001980| 70 6f 73 69 74 69 6f 6e | 20 23 40 28 32 30 20 31 |position| #@(20 1|
|00001990| 32 30 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |20).    |        |
|000019a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 64 |        |      :d|
|000019c0| 69 61 6c 6f 67 2d 69 74 | 65 6d 2d 74 65 78 74 20 |ialog-it|em-text |
|000019d0| 22 68 69 74 20 6d 65 20 | 74 6f 6f 22 0d 20 20 20 |"hit me |too".   |
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a00| 20 20 20 20 20 20 20 3a | 76 69 65 77 2d 6e 69 63 |       :|view-nic|
|00001a10| 6b 2d 6e 61 6d 65 20 3a | 69 35 0d 20 20 20 20 20 |k-name :|i5.     |
|00001a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a40| 20 20 20 20 20 29 0d 20 | 20 20 20 20 20 20 20 20 |     ). |        |
|00001a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a60| 20 20 29 29 29 0d 0d 7c | 23 00 00 00 00 00 00 00 |  )))..||#.......|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a80| 00 00 01 00 00 00 01 68 | 00 00 00 68 00 00 00 52 |.......h|...h...R|
|00001a90| 3b 3b 3b 3b 3b 0d dc 0f | 0d 03 00 01 04 52 45 4d |;;;;;...|.....REM|
|00001aa0| 46 07 00 03 59 1d 0f 0c | 0e 2a 43 55 52 52 45 4e |F...Y...|.*CURREN|
|00001ab0| 12 64 72 6f 70 70 61 62 | 6c 65 2d 73 76 6d 2e 6c |.droppab|le-svm.l|
|00001ac0| 69 73 70 70 02 00 00 00 | 54 45 58 54 43 43 4c 32 |ispp....|TEXTCCL2|
|00001ad0| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 00 00 80 |..TEXTCC|L2......|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 a4 c8 8c 99 00 00 | 19 e9 00 00 01 ba 4e 47 |........|......NG|
|00001b00| 3c 3d 07 00 03 f7 6c 0f | 0c 12 53 45 54 2d 56 49 |<=....l.|..SET-VI|
|00001b10| 45 57 2d 43 4f 4e 54 41 | 49 4e 45 52 07 00 03 af |EW-CONTA|INER....|
|00001b20| 4e 0f 0d 03 00 01 08 42 | 4f 4f 4c 45 2d 43 32 0a |N......B|OOLE-C2.|
|00001b30| 56 58 0f 0c 17 2a 46 41 | 53 4c 2d 53 41 56 45 2d |VX...*FA|SL-SAVE-|
|00001b40| 44 45 46 49 4e 49 54 49 | 4f 4e 53 2a 07 00 01 97 |DEFINITI|ONS*....|
|00001b50| 97 0f 0d 03 00 01 0f 4e | 53 45 54 2d 44 49 46 46 |.......N|SET-DIFF|
|00001b60| 45 52 45 4e 43 45 07 00 | 02 cd da 0f 0c 08 50 45 |ERENCE..|......PE|
|00001b70| 4e 2d 48 49 44 45 07 00 | 02 ff b7 0f 0d 03 00 01 |N-HIDE..|........|
|00001b80| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00001b90| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|00001ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bb0| 00 00 00 00 00 06 00 08 | 00 62 00 0c 03 3a 02 00 |........|.b...:..|
|00001bc0| 00 62 00 0c 03 3a 02 00 | 00 00 00 00 00 00 0a 6c |.b...:..|.......l|
|00001bd0| 00 00 0a 6c 00 00 04 0f | 01 00 00 00 00 0a 00 01 |...l....|........|
|00001be0| 07 43 6f 75 72 69 65 72 | 00 00 01 00 00 00 01 68 |.Courier|.......h|
|00001bf0| 00 00 00 68 00 00 00 52 | 00 d1 76 94 09 ec 00 00 |...h...R|..v.....|
|00001c00| 00 1c 00 52 00 01 46 52 | 45 44 00 01 00 12 4d 50 |...R..FR|ED....MP|
|00001c10| 53 52 00 00 00 2a 00 02 | ff ff 00 00 00 00 00 00 |SR...*..|........|
|00001c20| 00 00 00 03 ff ff 00 00 | 00 5a 00 00 00 00 03 ed |........|.Z......|
|00001c30| ff ff 00 00 00 0e 00 d5 | 7d 30 00 00 00 00 00 00 |........|}0......|
|00001c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+